home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_DrawnB.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  7.6 KB  |  190 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_DrawnB.c
  5. * RCS:          $Header: wc_DrawnB.c,v 1.3 91/03/14 03:14:36 mayer Exp $
  6. * Description:  XM_DRAWN_BUTTON_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Fri Oct 27 22:26:42 1989
  9. * Modified:     Thu Oct  3 23:56:25 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_DrawnB.c,v 1.3 91/03/14 03:14:36 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/DrawnB.h>
  47. #include "winterp.h"
  48. #include "user_prefs.h"
  49. #include "xlisp/xlisp.h"
  50. #include "w_funtab.h"
  51.  
  52.  
  53. /******************************************************************************
  54.  * typedef struct
  55.  * {
  56.  *     int     reason;
  57.  *     XEvent  *event;
  58.  *     Window  window;
  59.  *     int     click_count; -- THIS FIELD EXISTS ONLY IN MOTIF 1.1
  60.  * } XmDrawnButtonCallbackStruct;
  61.  ******************************************************************************/
  62. static void Lexical_Bindings_For_XmDrawnButtonCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  63.      LVAL bindings_list;    /* a list of symbols to which values from XmDrawnButtonCallbackStruct are bound */
  64.      LVAL lexical_env;        
  65.      XmDrawnButtonCallbackStruct* cd;
  66.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  67. {
  68.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT, 
  69. #ifdef WINTERP_MOTIF_11
  70.   s_CALLBACK_CLICK_COUNT,
  71. #endif                /* WINTERP_MOTIF_11 */
  72.   s_CALLBACK_WINDOW; /* w_callbacks.c */
  73.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  74.   register LVAL s_bindname;
  75.  
  76.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  77.  
  78.     s_bindname = car(bindings_list);
  79.  
  80.     if (s_bindname == s_CALLBACK_WIDGET) {
  81.       xlpbind(s_bindname, o_widget, lexical_env);
  82.     }
  83.     else if (s_bindname == s_CALLBACK_REASON) {
  84.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  85.     }
  86.     else if (s_bindname == s_CALLBACK_XEVENT) {
  87.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  88.     }
  89.     else if (s_bindname == s_CALLBACK_WINDOW) {
  90.       xlpbind(s_bindname, (cd->window) ? cv_window(cd->window) : NIL, lexical_env);
  91.     }
  92. #ifdef WINTERP_MOTIF_11
  93.     else if (s_bindname == s_CALLBACK_CLICK_COUNT) {
  94.       xlpbind(s_bindname, cvfixnum((FIXTYPE) (cd->click_count)), lexical_env);
  95.     }
  96. #endif                /* WINTERP_MOTIF_11 */
  97.     else {
  98.       extern char temptext[];    /* from winterp.c */
  99.       sprintf(temptext,
  100. #ifdef WINTERP_MOTIF_11
  101.           "Unknown binding name in XmDrawnButtonCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s].",
  102. #else
  103.           "Unknown binding name in XmDrawnButtonCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s].",
  104. #endif                /* WINTERP_MOTIF_11 */
  105.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  106.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  107.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  108. #ifdef WINTERP_MOTIF_11
  109.           (char*) getstring(getpname(s_CALLBACK_CLICK_COUNT)),
  110. #endif                /* WINTERP_MOTIF_11 */
  111.           (char*) getstring(getpname(s_CALLBACK_WINDOW)));
  112.       xlerror(temptext, s_bindname);
  113.     }
  114.   }
  115. }
  116.  
  117.  
  118. /******************************************************************************
  119.  * This is called indirectly via XtAddCallback() for callbacks returning
  120.  * an XmDrawnButtonCallbackStruct as call_data.
  121.  ******************************************************************************/
  122. static void XmDrawnButtonCallbackStruct_Callbackproc(widget, client_data, call_data)
  123.      Widget    widget;
  124.      XtPointer client_data;
  125.      XtPointer call_data;
  126. {
  127.   extern void Wcb_Meta_Callbackproc();    /* w_callbacks.c */
  128.  
  129.   Wcb_Meta_Callbackproc(client_data, call_data,
  130.             Lexical_Bindings_For_XmDrawnButtonCallbackStruct,
  131.             NULL);
  132. }
  133.  
  134.  
  135. /******************************************************************************
  136.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  137.  * how to get values from the XmDrawnButtonCallbackStruct.
  138.  * Specifying one or more of the following symbols in the callback bindings 
  139.  * list will bind that symbol's value in the lexical environment of the callback:
  140.  * CALLBACK_WIDGET
  141.  * CALLBACK_REASON
  142.  * CALLBACK_XEVENT
  143.  * CALLBACK_WINDOW
  144.  ******************************************************************************/
  145. LVAL Xm_Drawn_Button_Widget_Class_Method_ADD_CALLBACK()
  146. {
  147.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  148.  
  149.   return (Wcb_Meta_Method_Add_Callback(XmDrawnButtonCallbackStruct_Callbackproc, FALSE));
  150. }
  151.  
  152.  
  153. /******************************************************************************
  154.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  155.  * how to get values from the XmDrawnButtonCallbackStruct.
  156.  * Specifying one or more of the following symbols in the callback bindings 
  157.  * list will bind that symbol's value in the lexical environment of the callback:
  158.  * CALLBACK_WIDGET
  159.  * CALLBACK_REASON
  160.  * CALLBACK_XEVENT
  161.  * CALLBACK_WINDOW
  162.  ******************************************************************************/
  163. LVAL Xm_Drawn_Button_Widget_Class_Method_SET_CALLBACK()
  164. {
  165.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  166.  
  167.   return (Wcb_Meta_Method_Add_Callback(XmDrawnButtonCallbackStruct_Callbackproc, TRUE));
  168. }
  169.  
  170.  
  171. /******************************************************************************
  172.  *
  173.  ******************************************************************************/
  174. Wc_DrawnB_Init()
  175. {
  176.   LVAL o_XM_DRAWN_BUTTON_WIDGET_CLASS;
  177.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  178.   extern      xladdmsg();    /* from xlobj.c */
  179.  
  180.   o_XM_DRAWN_BUTTON_WIDGET_CLASS =
  181.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_DRAWN_BUTTON_WIDGET_CLASS",
  182.                      xmDrawnButtonWidgetClass);
  183.  
  184.   xladdmsg(o_XM_DRAWN_BUTTON_WIDGET_CLASS, ":ADD_CALLBACK",
  185.            FTAB_Xm_Drawn_Button_Widget_Class_Method_ADD_CALLBACK);
  186.  
  187.   xladdmsg(o_XM_DRAWN_BUTTON_WIDGET_CLASS, ":SET_CALLBACK",
  188.            FTAB_Xm_Drawn_Button_Widget_Class_Method_SET_CALLBACK);
  189. }
  190.